home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / +tv toob (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.2 KB  |  27 lines
  1. 1 C0=5:C1=2:C2=6:C3=0:SP=1
  2. 2 POKE53281,0:POKE53280,11:PRINT"[147][142]PLEASE WAIT..."
  3. 3 PRINT"USE THE JOYSTICK FIREBUTTON":PRINT"TO PAUSE THE GRAPHICS."
  4. 5 FORA=12288TOA+2047:POKEA,INT(RND(1)*256):NEXT:POKE53269,0
  5. 6 GOSUB500
  6. 7 POKE646,(C3AND7)+8:POKE53281,(C3AND7)+8:PRINT"[147]":POKE53281,C0:POKE53272,29
  7. 10 POKE53270,216:POKE53282,C1:POKE53283,C2:POKE53280,0
  8. 50 POKE54272,0:POKE54286,128:POKE54287,128:POKE54290,128:SYS49152
  9. 60 WAIT56320,16:WAIT56320,16,16:WAIT56320,16:GOTO50
  10. 490 END
  11. 500 FORA=0TO2:L=832+A*64:POKE2040+A,13+A:POKE53287+A,SP:POKE53249+A*2,0
  12. 510 POKE53248+A*2,120+A*48
  13. 520 READB:IFB<>-1THENPOKEL,B:L=L+1:GOTO510
  14. 530 NEXT:L=49152
  15. 540 READB:IFB<>-1THENPOKEL,B:L=L+1:GOTO540
  16. 590 POKE53277,7:POKE53276,0:POKE53269,7:RETURN
  17. 900 DATA 126,102,0,24,102,0,24,102,0,24,102,0,24,102,0,24,60,0,24,24,0,0,0,0,-1
  18. 905 DATA 126,60,60,24,102,102,24,102,102,24,102,102,24,102,102,24,102,102
  19. 910 DATA 24,60,60,0,0,0,120,126,99,108,96,119,102,96,127,102,120,107,102,96,99
  20. 915 DATA 108,96,99,120,126,99,0,0,0,-1
  21. 920 DATA124,0,0,102,0,0,102,0,0,124,0,0,102,0,0,102,0,0,124,0,0,0,0,0
  22. 925 DATA 60,0,0,102,0,0,102,0,0,102,0,0,102,0,0,102,0,0,60,0,0,0,0,0,-1
  23. 950 DATA 120,162,0,173,27,212,157,0,4,173,27,212,157,0,5,173
  24. 960 DATA 27,212,157,0,6,173,27,212,157,232,6,232,208,229,173,17
  25. 970 DATA 208,41,128,240,249,238,1,208,238,3,208,238,5,208,173,0
  26. 980 DATA 220,41,16,208,204,88,96,0,0,0,0,0,-1
  27.